home *** CD-ROM | disk | FTP | other *** search
Wrap
; NewIcons 2.0 Installer Script ; $Ver: 39.1 (13-Jul-96) ; Rédigé par Phil Vedovatti ; Traduit par Eric Sauvageau ; Production de l'Equipe de NewIcons (set @default-dest "SYS:C") (set cpu (database "cpu")) (set cpu020 (and (<> cpu "68000") (<> cpu "68010"))) (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39)) (set #bad-kick (cat "\n\nDésolé! Vous devez avoir le Workbench 2.0 ou" "mieux pour utiliser ce logiciel.")) (set #hello-message (cat "\nMerci d'utiliser NewIcons, le système" "\nrévolutionaire d'icônes pour l'Amiga." "\nS'il-vous-plaît, lisez la documentation " "\nafin de tirer le maximum de ce logiciel." "\nRien ne sera effacé de votre système lors de" "\nl'installation du logiciel. Vos anciens icônes" "\nseront toujours là, quoiqu'ils n'auront plus le" "\nmême aspect sur votre écran. Si vous désirez plus" "\nd'informations sur une étape de l'installation," "\ncliquez sur le gadget \"Help\" (Aide)." "\ndisponible au bas de l'écran." "\n\nCLIQUEZ POUR CONTINUER")) (set #install-which (cat "\nQuelle(s) partie(s) du système NewIcons désirez-vous" "\ninstaller sur votre disque dur?\n")) (set #install-library (cat "\n\nInstallation de newicon.library dans LIBS:.")) (set #install-library-help (cat "\n\nCette librairie est requise pour utiliser NewIcons.")) (set #install-newicons (cat "\n\nCopie de l'exécutable NewIcons et des fichiers" "\nde soutien dans C:")) (set #install-newicons-help (cat "\n\nCette étape installe NewIcons, InjectBrush" "\net PatchOpenWB dans votre répertoire C:")) (set #install-icons (cat "\n\nInstallation des images d'icônes NewIcons" "\nsur votre partition SYS:." "\n\nVos icônes originaux ne seront PAS effacés." "\n\nNOTEZ-BIEN: Soyez certains que vous avez la commande" "\nAmigaDOS 'list' originale dans le chemin de" "\nrecherche des commandes avant de poursuivre." "\n\nL'installation peut prendre un certain temps.")) (set #install-icons-help (cat "\n\nLes images des nouveaux icônes seront" "\nincorporées dans les types d'outils des fichiers" "\n'.info'. Ces nouveaux types d'outils seront" "\ninvisibles une fois que NewIcons sera lancé," "\nrendant le fonctionnement de NewIcons tout à" "\nfait transparent du point de vue de" "\nl'utilisateur.")) (set #tools-dest (cat "\nDans quel répertoire désirez-vous installer les" "\noutils servant à manipuler les NewIcons?" "\nAUCUN répertoire ne sera créé.")) (set #install-prefs (cat "\nInstallation de NewIconsPrefs" "\ndans le répertoire Sys:Prefs.")) (set #install-prefs-help (cat "\nUtilisez ce logiciel pour configurer NewIcons.")) (set #install-classes (cat "\n\nInstallation des classes ClassAct" "\ndans le répertoire SYS:Classes.")) (set #install-classes-help (cat "\nCette section installe les gadgets ClassAct" "\n(requis pour NewIconsPrefs) dans votre" "\nrépertoire Sys:Classes.")) (set #run-prefs (cat "\nLancement de NewIconsPrefs afin de vous" "\npermettre de configurer Newicons. Le" "\nrésultat ne sera visible que lorsque" "\nvous redémarrerez votre système.")) (set #startup-change (cat "NewIcons V3.0 nécessite un changement à votre" "\n'user-startup' afin d'être lancé. Ajout de:" "\n\n'Run <NIL: >NIL: c:NewIcons'" "\n\nà votre fichier S:user-startup?" "\n\n(Il est possible que vous ayez à effacer" "\nl'ancienne commande vous-même de ce fichier" "\nsi vous n'avez pas utilisé le script" "\nd'installation lors d'une installation" "\nprécédente.)")) (set #install-deficons (cat "\n\nInstallation du serveur DefIcons dans le" "\nrépertoire C:, et copie des icônes génériques" "\ndans le répertoire Envarc:sys/.")) (set #install-deficons-help (cat "\nCette section installe le logiciel DefIcons" "\net copie les fichiers 'def_icons' requis" "\ndans votre répertoire ENVARC:.")) (set #move-olddefs-dir (cat "L'Installer va déplacer vos anciens icônes" "\ngénériques dans un autre endroit afin de" "\nles préserver. Où désirez-vous créer le" "\nrépertoire qui les contiendra?")) (set #move-olddefs-help (cat "\nCette étape copie vos anciens icônes génériques" "\ndans un autre répertoire plutot que de ré-écrire" "\npar-dessus. Si jamais vous désirez retirer" "\nDefIcons de votre système, vous n'aurez qu'à" "\naller les récuperer dans ce répertoire.")) (set #move-olddefs (cat "Déplacement des anciens icônes génériques dans \n" destdir)) (set #install-envarc (cat "\nCopie des icônes génériques et du fichier de" "\nconfiguration pour DefIcons dans ENVARC:.\n")) (set #install-envarc-help (cat "\n\nCette étape installe les icônes que DefIcons" "\nutilisera comme image générique pour les fichiers" "\nne possédant pas d'icône.")) (set #startup-deficons (cat "\n\nAjout d'une commande au fichier" "\nS:User-Startup pour lancer DefIcons" "\nlorsque vous démarrez votre systeme.")) (set #powb-message (cat "\n\nSi vous avez installé NewIcons, vous devez " "ajouter une ligne à votre S:Startup-Sequence:\n\n" "C:PatchOpenWB\n" "\nafin de corriger un bug dans le Kickstart 3.x!" "\n\nCette ligne doit être placée entre" "\nSetpatch et IPrefs.")) (set #docs-dest (cat "Où désirez-vous installer la documentation" "\nAmigaGuide de NewIcons?")) (set #exit-message (cat "Veuillez redémarrer votre système afin d'activer\n" "proprement les logiciels NewIcons et/ou Deficons." "\n\n\nMerci d'utiliser NewIcons!")) ; ClassAct installation procedure V 1.5 (12.5.96) by Osma Ahvenlampi ; percentage of the size of included ClassAct classes versus the whole ; distribution (ie. total "complete" percentage after ClassAct is installed) (set classact-complete 70) ; ClassAct installer scripts (set #classdest-prompt "Veuillez choisir le répertoire où vous désirez que les classes ClassAct soient installées.\n(Voir 'help' pour explications)") (set #classdest-help (cat "ClassAct est un système pour interface graphique constitué de classes BOOPSI.\n\nCe logiciel exige l'installation de classes ClassAct sur votre système." (if v39 (cat "OS 3.0 a un répertoire standard pour les classes BOOPSI, soit SYS:Classes. Il est recommandé d'imstaller ClassAct dans celui-ci.") (cat "OS 2.0 n'a pas d'endroit standard pour les classes BOOPSI basées sur disque. Sous 3.0 ces classes se trouvent dans SYS:Classes. Il est recommandé de créer ce répertoire et d'y installer ClassAct.\nCe répertoire doit être ajouté à l'assignation LIBS:. Ceci peut être accompli en ajoutant la commande\nAssign >NIL: LIBS: SYS:Classes ADD\nau User-Startup. Ce script d'installation s'en chargera pour vous.") ) ) ) (set #classes-020 "Désirez-vous utiliser les versions optimisées pour OS 3.0 et 68020 de ClassAct?") (set #help-020 "Certaines librairies ClassAct ont une version optimisée pour utiliser sur un système sous AmigaDOS 3.0 et ayant un 68020 ou mieux. Si c'est votre cas, vous devriez installer celles-ci. Les versions 68000/2.0 fonctionnent aussi, mais sont légèrement plus lentes.") (set #noclasses-message "Le répertoire sélectionné pour ClassAct ne fait pas partie de l'assignation LIBS:.\n\nIl est nécessaire d'ajouter cette assignation afin que les classes puissent être localisées.") (set #creating-dir "Création du répertoire ") (set #usbackup-prompt "Le fichier original User-Startup sera préservé.") (set #usbackup-help "L'Installer doit maintenant apporter un changement au User-Startup. Votre User-Startup actuel sera d'abord recopié sous le nom S:User-Startup.old") (set #adding-1 "Ajout ") (set #adding-2 " assignation LIBS:\n") (set #adding-help "Requise afin que les classes puissent être retrouvées.") (set #junod-button "Il semblerait qu'une version 42 du button.gadget de Commodore soit installée sur votre système.\n\nLe button.gadget de ClassAct est beaucoup plus puissant que ce gadget, et nous suggérons de le remplacer. Le button.gadget de ClassAct est compatible avec celui de Commodore. Désirez-vous faire une copie du gadget de Commodore et le remplacer par celui de ClassAct?") (set #junod-backed "Le button.gadget V42 de Commodore a été préservé sous le nom button.gadget.v42.\n\nLe button.gadget de ClassAct sera installé à sa place.") (set #junod-kept "Le button.gadget V42 de Commodore n'est pas remplacé par la version plus avancée de ClassAct.\n\nTout logiciel reposant sur certaines caractéristiques uniques à ClassAct peuvent fonctionner incorrectement.") (set #caprefs-message "CAPrefs est un court programme qui configure certaines options choisies par l'utilisateur pour les applications ClassAct. Cela comprend le type de Bevels (Thin/Gadtools/Xen), fond de fenêtre, et type d'étiquettes pour les groupes.\n\nUtilisez l'éditeur de préférences ClassAct afin de modifier ces options. L'éditeur sera situé dans votre répertoire SYS:Prefs/.\n\n") (set #caprefs-startup-1 "Ajout de la commande\n\n") (set #caprefs-startup-2 "\n\nà votre s:User-Startup.") (procedure install-classact (debug "classact") ; call this procedure to copy the classes included in the Classes directory ; in your distribution dir. (if (exists "Classes") ; The archive contains a ClassAct library update. ( (set comp-dest (/ (* classact-complete 5) 10)) (set comp-libs (/ (* classact-complete 5) 10)) (set comp-dirs (/ (* classact-complete 6) 10)) (set comp-junod (/ (* classact-complete 6) 10)) (set comp-020 (/ (* classact-complete 7) 10)) (set comp-gad (/ (* classact-complete 7) 10)) (set comp-im (/ (* classact-complete 8) 10)) (set comp-prefs (/ (* classact-complete 9) 10)) ; has the user installed ClassAct in CLASSACT: ? (set @classact-dest (getassign "CLASSACT" "A")) (if (= @classact-dest "") (set @classact-dest "SYS:Classes")) ; is ClassAct already in SYS:Classes ? (if (or (not (exists (tackon @classact-dest "Gadgets/layout.gadget") (noreq))) (= @user-level 2)) ; no, ask where it should be placed (set @classact-dest (askdir (prompt #classdest-prompt) (help #classdest-help) (default @classact-dest) (newpath) ) ) ) (complete comp-dest) (if (<> (run (cat "C/CheckAssign LIBS: " @classact-dest)) 0) ( (message #noclasses-message) (if (not (exists @classact-dest)) (makedir @classact-dest (prompt (cat #creating-dir @classact-dest))) ) (set @addassign (cat "Assign >NIL: LIBS: " @classact-dest " ADD\n")) (startup "CLASSACT" (command @addassign) (prompt (cat #adding-1 @classact-dest #adding-2)) (help #adding-help) ) (run (@addassign)) ) ) (complete comp-libs) (set @classact-gadgets (tackon @classact-dest "Gadgets")) (set @classact-images (tackon @classact-dest "Images")) (if (not (exists @classact-gadgets (noreq))) (makedir @classact-images (prompt (cat #creating-dir @classact-gadgets)) ) ) (if (not (exists @classact-images (noreq))) (makedir @classact-images (prompt (cat #creating-dir @classact-images)) ) ) (complete comp-dirs) (if (exists "SYS:Classes/Gadgets/button.gadget") (if (< 40 (/ (getversion "SYS:Classes/Gadgets/button.gadget") 65536)) (if (askbool (prompt #junod-button) (help @askbool-help) (default 1)) ( (rename "SYS:Classes/Gadgets/button.gadget" "SYS:Classes/Gadgets/button.gadget.v42") (message #junod-backed) ) (message #junod-kept) ) ) ) (complete comp-junod) (if (exists "Classes/Gadgets/layout.gadget.020") (set classes-020 (askbool (prompt #classes-020) (help #help-020) (default (and cpu020 v39)))) (set classes-020 0) ) (complete comp-020) (foreach "Classes/Gadgets" "#?.gadget" ( (set thislib (tackon "Classes/Gadgets" @each-name)) (if (and classes-020 (exists (cat thislib ".020"))) (set thislib (cat thislib ".020")) ) (copylib (source thislib) (dest @classact-gadgets) (newname @each-name) (prompt (cat #installing @each-name)) (help #classdest-help) (optional "force" "askuser") ) ) ) (complete comp-gad) (foreach "Classes/Images" "#?.image" ( (set thislib (tackon "Classes/Images" @each-name)) (if (and classes-020 (exists (cat thislib ".020"))) (set thislib (cat thislib ".020")) ) (copylib (source thislib) (dest @classact-images) (newname @each-name) (prompt (cat #installing @each-name)) (help #classdest-help) (optional "force" "askuser") ) ) ) (complete comp-im) (foreach "Classes" "#?.class" ( (set thislib (tackon "Classes" @each-name)) (if (and classes-020 (exists (cat thislib ".020"))) (set thislib (cat thislib ".020")) ) (copylib (source thislib) (dest @classact-dest) (newname @each-name) (prompt (cat #installing @each-name)) (help #classdest-help) (optional "force" "askuser") ) ) ) ) ) (if (exists "Prefs/ClassAct") ; The archive contains ClassAct prefs tools ( (message #caprefs-message) (copylib (source "Prefs/CAPrefs") (dest "C:") (prompt (cat #installing "CAPrefs")) ) (copylib (source "Prefs/ClassAct") (dest "SYS:Prefs") (prompt (cat #installing "ClassAct Prefs")) (infos) ) (complete comp-prefs) (if (not (exists "ENVARC:ClassAct" (noreq))) ( (makedir "ENVARC:ClassAct" (prompt (cat #creating-dir "ENVARC:ClassAct")) ) (textfile (dest "ENVARC:ClassAct/ClassAct") (append "") ) ) ) (set caprefs-cmd "C:CAPrefs >NIL:\n") (startup "CAPREFS" (prompt (cat #caprefs-startup-1 caprefs-cmd #caprefs-startup-2)) (help #caprefs-message) (command caprefs-cmd) ) ) ) (complete classact-complete) ) ; ------------------------------ ; Check Kickstart Version ; ------------------------------ (if (< (getversion "LIBS:version.library") (* 37 65536)) (abort #bad-kick) ) (message #hello-message) ; ------------------------------ ; What should I install? ; ------------------------------ (complete 0) (set InstallOpt (askoptions (prompt #install-which) (help @askoptions-help) (choices "NewIcons" "DefIcons" "Documentation") ) ) ; ------------------------------ ; Install NewIcon.library ; ------------------------------ (complete 10) (if ((patmatch (database "cpu") ("68000|68010") ) ) (copylib (source "/libs/000/newicon.library") (dest "libs:") (prompt #install-library) (help #install-library-help) (confirm) ) (if (>= (getversion "LIBS:version.library") (* 39 65536) ) (copylib (source "/libs/020-V39/newicon.library") (dest "libs:") (prompt #install-library) (help #install-library-help) (confirm) ) (copylib (source "/libs/000/newicon.library") (dest "libs:") (prompt #install-library) (help #install-library-help) (confirm) ) ) ) ;-------------------------------------------------------- ; Install NewIcons, icon images, and icon support files ;-------------------------------------------------------- (complete 20) (if (BITAND InstallOpt 1) ((message #install-icons) (execute "Install_Icons" (help #install-icons-help) ) (complete 25) (copylib (prompt #install-newicons) (source "/C/NewIcons") (dest "c:") (help #install-newicons-help) ) (copylib (source "/C/InjectBrush") (dest "c:") ) (copylib (source "/C/PatchOpenWB") (dest "c:") ) (complete 30) (set destdir (askdir (prompt #tools-dest) (help @askdir-help) (default "Sys:Utilities") ) ) (copyfiles (source "/Utilities/CopyNewIcon") (dest destdir) (infos) ) (copyfiles (source "/Utilities/CreateDefaultIcon") (dest destdir) (infos) ) (copyfiles (source "/Utilities/KillNewIcon") (dest destdir) (infos) ) (complete 35) (startup "NewIcons" (prompt #startup-change) (command "Run <NIL: >NIL: c:NewIcons") (help @startup-help) ) (copylib (prompt #install-prefs) (source "/prefs/NewIconsPrefs") (dest "Sys:prefs") (help #install-prefs-help) (confirm) (infos) ) ;------------------------------ ;Install ClassAct classes ;------------------------------ ; (message #install-classes ; (help #install-classes-help) ; ) (install-classact) ) ) ;------------------------------ ;Install Deficons ;------------------------------ (complete 75) (if (BITAND InstallOpt 2) ((set destdir (askdir (prompt #move-olddefs-dir) (help #move-olddefs-help) (default "Sys:Storage") ) ) (set destdir (tackon destdir "Old_Def_icons") ) (makedir destdir ) (complete 80) (copyfiles (prompt #move-olddefs) (source "Envarc:sys") (dest destdir) (pattern "def#?") (help #move-olddefs-help) ) (copylib (prompt #install-deficons) (source "/C/DefIcons") (dest "C:") (help #install-deficons-help) (confirm) ) (copyfiles (prompt #install-envarc) (source "/envarc") (dest "ENVARC:") (all) (infos) (help #install-envarc-help) ) (startup "DefIcons" (prompt #startup-deficons) (command "DefIcons") (help @startup-help) ) ) ) ;------------------------------ ;Install Documentation ;------------------------------ (complete 90) (if (BITAND InstallOpt 4) ((set destdir (askdir (prompt #docs-dest) (help @askdir-help) (default "Help:") ) ) (copyfiles (source "/NewIcons.guide") (dest destdir) (infos) ) ) ) ;------------------------------ ;Run NIPrefs ;------------------------------ (complete 95) (run "/prefs/NewIconsPrefs" (prompt #run-prefs) (help "Vous permet de configurer NewIcons.") (confirm) (safe) ) (run "Sys:Utilities/Multiview /NewIcons.guide" (safe) ) (complete 99) (message #powb-message) (complete 100) (exit #exit-message)